############################################
## II: Where You Sit Matters Figure replication 
############################################

# load "WhereYouSitMattersFigures.RData"

######################
## Figure 1: Diplomatic Network in 1817 
######################
library(network)
dN1817
plot(dN1817,displaylabels=T,label.cex=.5)

######################
## Figure 2: Relationship between military capability and betweenness centrality (2000)
######################

plot(MilitaryRank2000$militaryrank,bet2000$bet2000rank, 
     xlab="Military Capabilities Rank", ylab="Betweenness Rank",
     col="blue",pch=19,cex=0.2,lty="solid",lwd=2)

text(MilitaryRank2000$militaryrank,bet2000$bet2000rank,labels=dN2000%v%"vertex.names",cex=0.7)


